home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -screenplay- / utilities / hd_installers / o-z / xenon2 / install-xenon2 < prev    next >
Text File  |  1997-12-12  |  2KB  |  84 lines
  1. ;try to figure out a place where the user usually installs his games
  2. (if (exists "Games:" (noreq) )
  3.     (set @default-dest "Games:")
  4.     (if (exists "SYS:Games" (noreq) )
  5.         (set @default-dest "SYS:Games")
  6.         (if (exists "Work:Games" (noreq) )
  7.             (set @default-dest "Work:Games")
  8.             (if (exists "JEUX:" (noreq) )
  9.                (set @default-dest "JEUX:")
  10.                (set @default-dest "SYS:")
  11.             )
  12.         )
  13.     )
  14. )
  15.  
  16.  
  17. (set @default-dest
  18. (askdir
  19.     (prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  20.     (help @askdir-help)
  21.     (default @default-dest)
  22.     (disk)
  23. )
  24. )
  25.  
  26.  
  27. (set #dest (tackon @default-dest @app-name))
  28.  
  29. (message "\n\n\nThis loader needs the JST program (NOT INCLUDED)\n to be copied in your path\n\n(if you don't have it already)\n\nJST is available from aminet (game/patch) or on my site")
  30.  
  31. (set #CI_unit
  32.     (askchoice
  33.         (prompt "From which disk unit do you want\nto install the game")
  34.         (help    @askoptions-help)
  35.         (choices
  36.            "DF0:"
  37.            "DF1:"
  38.            "DF2:"
  39.            "DF3:"
  40.         )
  41.     )
  42. )
  43.  
  44. (set #CI_drive ("DF%ld:" #CI_unit))
  45.  
  46. (makedir #dest
  47.     (help @makedir-help)
  48.     (infos)
  49. )
  50.  
  51. ;----------------------------
  52.  
  53. (copyfiles
  54.     (help @copyfiles-help)
  55.     (source "Xenon2HD")
  56.     (dest #dest)
  57.     (infos)
  58. )
  59.  
  60. (copyfiles
  61.     (help @copyfiles-help)
  62.     (source "xenon2hd.readme")
  63.     (dest #dest)
  64.     (infos)
  65. )
  66.  
  67. (message ("\nInsert %s disk 1 into drive %s !" @app-name #CI_drive))
  68.     (if
  69.         (= 0 (run ("disk2file %ld \"%s/Xenon2.d1\" SKIPROB >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  70.         ("")
  71.         (abort "\"disk2file\" must be in your PATH !")
  72.     )
  73.  
  74. (message ("\nInsert %s disk 2 into drive %s !" @app-name #CI_drive))
  75.     (if
  76.         (= 0 (run ("disk2file %ld \"%s/Xenon2.d2\" >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  77.         ("")
  78.         (abort "\"disk2file\" must be in your PATH !")
  79.     )
  80.  
  81.  
  82. (exit)
  83.  
  84.